home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / global.bas < prev    next >
BASIC Source File  |  1999-02-15  |  3KB  |  115 lines
  1. Attribute VB_Name = "Global"
  2. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  3. Global Const SND_SYNC = &H0
  4.    Global Const SND_ASYNC = &H1
  5.    Global Const SND_NODEFAULT = &H2
  6.    Global Const SND_LOOP = &H8
  7.    Global Const SND_NOSTOP = &H10
  8. Global percentagerate As String
  9. Global hopper2 As Double
  10. Global giveme As Integer
  11. Global previousgame As Integer
  12. Global bettotal As Double
  13. Global warningshown As Integer
  14. Global hopperempty As Double
  15. Global lastcredits As Double
  16. Global soundonoff As Integer
  17. Global delaytime As Long
  18. Global key As Double
  19. Global key2 As Double
  20. Global amountbet As Integer
  21. Global boxes_checked As Integer
  22. Global dollars As Double
  23. Global c1_checked As Single
  24. Global c2_checked As Single
  25. Global c3_checked As Single
  26. Global c4_checked As Single
  27. Global c5_checked As Single
  28. Global c6_checked As Single
  29. Global c7_checked As Single
  30. Global c8_checked As Single
  31. Global c9_checked As Single
  32. Global c10_checked As Single
  33. Global c11_checked As Single
  34. Global c12_checked As Single
  35. Global c13_checked As Single
  36. Global c14_checked As Single
  37. Global c15_checked As Single
  38. Global c16_checked As Single
  39. Global c17_checked As Single
  40. Global c18_checked As Single
  41. Global c19_checked As Single
  42. Global c20_checked As Single
  43. Global c21_checked As Single
  44. Global c22_checked As Single
  45. Global c23_checked As Single
  46. Global c24_checked As Single
  47. Global c25_checked As Single
  48. Global c26_checked As Single
  49. Global c27_checked As Single
  50. Global c28_checked As Single
  51. Global c29_checked As Single
  52. Global c30_checked As Single
  53. Global c31_checked As Single
  54. Global c32_checked As Single
  55. Global c33_checked As Single
  56. Global c34_checked As Single
  57. Global c35_checked As Single
  58. Global c36_checked As Single
  59. Global c37_checked As Single
  60. Global c38_checked As Single
  61. Global c39_checked As Single
  62. Global c40_checked As Single
  63. Global c41_checked As Single
  64. Global c42_checked As Single
  65. Global c43_checked As Single
  66. Global c44_checked As Single
  67. Global c45_checked As Single
  68. Global c46_checked As Single
  69. Global c47_checked As Single
  70. Global c48_checked As Single
  71. Global c49_checked As Single
  72. Global c50_checked As Single
  73. Global c51_checked As Single
  74. Global c52_checked As Single
  75. Global c53_checked As Single
  76. Global c54_checked As Single
  77. Global c55_checked As Single
  78. Global c56_checked As Single
  79. Global c57_checked As Single
  80. Global c58_checked As Single
  81. Global c59_checked As Single
  82. Global c60_checked As Single
  83. Global c61_checked As Single
  84. Global c62_checked As Single
  85. Global c63_checked As Single
  86. Global c64_checked As Single
  87. Global c65_checked As Single
  88. Global c66_checked As Single
  89. Global c67_checked As Single
  90. Global c68_checked As Single
  91. Global c69_checked As Single
  92. Global c70_checked As Single
  93. Global c71_checked As Single
  94. Global c72_checked As Single
  95. Global c73_checked As Single
  96. Global c74_checked As Single
  97. Global c75_checked As Single
  98. Global c76_checked As Single
  99. Global c77_checked As Single
  100. Global c78_checked As Single
  101. Global c79_checked As Single
  102. Global c80_checked As Single
  103. Global totaldeals As Double
  104. Global dealt As Integer
  105. Global hits As Integer
  106. Global getgame As Integer
  107. Global playersname As String
  108. Global autoplay As Double
  109. Global autokenomode As Integer
  110. Global keys As Integer
  111. Global normalwidth As Single
  112. Global normalheight As Single
  113. Global fullmode As Integer
  114. Global autostop As Integer
  115.